home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
lsp
/
top.data
< prev
next >
Wrap
Text File
|
1987-06-03
|
7KB
|
316 lines
#(
#!
(lisp::in-package 'user::lisp)
#!
(lisp::export '(lisp::+ lisp::++ lisp::+++ lisp::- lisp::* lisp::** lisp::*** lisp::/ lisp::// lisp::///))
#!
(lisp::export '(lisp::break lisp::warn))
#!
(lisp::export 'lisp::*break-on-warnings*)
#!
(lisp::export 'lisp::*break-enable*)
#!
(lisp::in-package 'lisp::system)
#!
(lisp::export 'system::*break-readtable*)
#!
(lisp::export '(system::vs system::ihs-vs system::ihs-fun system::frs-vs system::frs-bds system::frs-ihs system::bds-var system::bds-val system::super-go))
lisp::+
lisp::++
lisp::+++
lisp::-
lisp::*
lisp::**
lisp::***
lisp::/
lisp:://
lisp::///
system::*eof*
system::*lisp-initialized*
system::*quit-tag*
system::*quit-tags*
system::*break-level*
system::*break-env*
1
system::*ihs-base*
system::*ihs-top*
system::*current-ihs*
0
system::*frs-base*
system::*frs-top*
lisp::*break-enable*
""
system::*break-message*
lisp::*break-on-warnings*
system::*break-readtable*
system::*break-hidden-functions*
system::system
system::*break-hidden-packages*
"init.lsp"
"init.lsp"
"~%~a>"
lisp::*package*
system::user
""
lisp::*standard-input*
lisp::*error-output*
lisp::*print-level*
4
lisp::*print-length*
lisp::*print-case*
:upcase
"~&Warning: "
system::*indent-formatted-output*
lisp::*print-pretty*
"~&Correctable error: "
"Signalled by ~:@(~S~).~%"
"Signalled by an anonymous function.~%"
"~&If continued: "
"~?~&"
"~&Error: "
"Error signalled by ~:@(~S~).~%"
"Error signalled by an anonymous function.~%"
"~&Break: "
"~&Break.~%"
""
"Console interrupt."
"Continues execution."
"Console interrupt -- cannot continue."
lisp::*readtable*
lisp::*read-suppress*
lisp::*debug-io*
"~%~a>~{~*>~}"
""
:r
:resume
system::break-command
"~&~S is undefined break command.~%"
"Broken at ~:@(~S~).~:[ Type :H for Help.~;~]"
"Local variables: ~#[none~;~S~;~S and ~S~
~:;~@{~#[~;and ~]~S~^, ~}~]."
"Local functions: ~#[none~;~S~;~S and ~S~
~:;~@{~#[~;and ~]~S~^, ~}~]."
"Block names: ~#[none~;~S~;~S and ~S~
~:;~@{~#[~;and ~]~S~^, ~}~]."
lisp::block
"Tags: ~#[none~;~S~;~S and ~S~
~:;~@{~#[~;and ~]~S~^, ~}~]."
lisp::tag
"~&VS[~d]: ~s"
"~&BDS[~d]: ~s = ~s"
:stream
:escape
:case
:downcase
2
"~&~:[ ~;@ ~]IHS[~d]: ~s ---> VS[~d]"
lisp::lambda
(:zombi)
:zombi
"~& FRS[~d]: ~s ---> IHS[~d],VS[~d],BDS[~d]"
:key
:test
lisp::tagbody
:test-not
(lisp::***)
system::block/tagbody
lisp::catch
lisp::quote
(lisp::unwind-protect lisp::***)
system::system-internal-catcher
"Broken at ~:@(~S~)."
"~&Top level."
lisp::eval
lisp::evalhook
lisp::lambda-closure
"~s is invalid tagbody identification for ~s."
"Search for ~a failed.~%"
"Search for ~a failed.~%"
"~S: ~S~%"
:b
system::simple-backtrace
:backtrace
:bds
system::break-bds
:blocks
system::break-blocks
:bs
system::break-backward-search-stack
:c
system::break-current
:current
:fs
system::break-forward-search-stack
:functions
system::break-functions
:go
system::break-go
:h
system::break-help
:help
:hd
system::break-hide
:hdp
system::break-hide-package
:hh
system::break-help-help
:hide
:hide-package
:hs
system::break-help-stack-funs
:ihs
system::backtrace
:l
system::break-local
:lb
:lf
:local
:lt
system::break-tags
:lv
system::break-variables
:m
system::break-message
:n
system::break-next
:next
:p
system::break-previous
:previous
:q
system::break-quit
:quit
:s
:tags
:uh
system::break-unhide
:uha
system::break-unhide-all
:uhp
system::break-unhide-package
:unhide
:unhide-package
:v
:variable
:vs
system::break-vs
:vv
system::break-variables-values
"
Break-loop Command Summary:
:p (Previous) :n (Next) :go (GO)
:m (Message) :c (Current)
:h (Help) :hh (Help Help) :hs (Help Stack functions)
:q (Quit) :r (Resume or Return)
:b (Backtrace) :l (Local value)
:vs (Value Stack) :bds (BinD Stack) :ihs (Invocation Hist. Stack)
:lv (Local Variables) :v (= :lv) :lf (Local Functions)
:lb (Blocks) :lt (Tags)
:hd (HiDE) :hdp (HiDe Packages)
:uha (UnHide All) :uh (UnHide) :uhp (UnHide Packages)
:bs (Backward Search) :s (= :bs) :fs (Forward Search)
:vv (Variables Values)
Type :HH for more details.
"
"
Break-loop Commands:
:p [i] Go to the i-th previous function. i defaults to 1.
:n [i] Go to the i-the next function. i defaults to 1.
:go i Go to the function at IHS[i].
:m Print the error message.
:c Show the current function.
:h Show the break command summary.
:hh Show this message.
:hs Show stack-accessing functions.
:q [i] Return to the level i break-level (or top-level if i = 0).
i defaults to 0.
:r Return to the caller of break-level.
:b Print simple backtrace.
:l [i] Print i-th local value.
:vs [from [to]] Show values in the stack between VS[from] to VS[to].
'from' defaults to 0 and 'to' defaults to positive infinity.
:bds var-list Show previous bindings of the variables. 'var-list' may be
a symbol or a list of symbols.
:ihs [from [to]] Print backtrace between IHS[from] to IHS[to].
'from' defaults to 0 and 'to' defaults to positive infinity.
:lv Show local variables.
:lf Show local functions.
:lb Show block names.
:lt Show tags.
:hd symbol Hide the function named by the specified symbol.
:hdp package Hide functions in the specified package.
:uha Unhide all functions.
:uh symbol Unhide the function named by the specified symbol.
:uhp package Unhide functions in the specified package.
"
"
Use the following functions to directly access KCL stacks.
(SI:VS i) Returns the i-th entity in VS.
(SI:IHS-VS i) Returns the VS index of the i-th entity in IHS.
(SI:IHS-FUN i) Returns the function of the i-th entity in IHS.
(SI:FRS-VS i) Returns the VS index of the i-th entity in FRS.
(SI:FRS-BDS i) Returns the BDS index of the i-th entity in FRS.
(SI:FRS-IHS i) Returns the IHS index of the i-th entity in FRS.
(SI:BDS-VAR i) Returns the symbol of the i-th entity in BDS.
(SI:BDS-VAL i) Returns the value of the i-th entity in BDS.
(SI:SUPER-GO i tag)
Jumps to the specified tag established by the TAGBODY frame at
FRS[i]. Both arguments are evaluated. If FRS[i] happens to be
a non-TAGBODY frame, then (THROW (SI:IHS-TAG i) (VALUES)) is
performed.
Note that these functions are named by external symbols in the SYSTEM
package. For the KCL stacks, refer to Appendix B of the KCL Report.
"
system::top-level
lisp::warn
system::universal-error-handler
lisp::break
system::terminal-interrupt
system::break-level
system::break-call
system::set-current
system::print-ihs
system::print-frs
system::frs-kind
system::ihs-visible
system::ihs-fname
system::set-env
system::ihs-compiled-p
system::list-delq
system::super-go
lisp::read
lisp::prin1
system::ihs-top
system::sch-frs-base
system::frs-top
system::ihs-vs
system::vs
system::frs-bds
system::bds-var
system::bds-val
system::frs-ihs
system::ihs-fun
lisp::lambda-block
lisp::lambda-block-closure
system::frs-vs
system::frs-class
:catch
system::spicep
system::frs-tag
lisp::caddr
lisp::eq
lisp::remove
:protect
system::compiled-function-name
system::internal-super-go
lisp::search
lisp::char-equal
)